Những câu hỏi liên quan
huyokkkkk
Xem chi tiết
Linh Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
10 tháng 3 2022 lúc 21:05

A

Bình luận (0)
✎﹏ϯǜทɠ✯廴ěë︵☆
10 tháng 3 2022 lúc 21:05

A

Bình luận (0)
Linh Nguyễn
10 tháng 3 2022 lúc 21:06

ủa alo

Bình luận (3)
Vi Đoàn
Xem chi tiết
Minh Lệ
24 tháng 2 2022 lúc 16:21

Câu 16: (0,25đ) Trong các cách viết câu lệnh lặp với số lần định trước như sau, cách nào đúng?

A. For <biến đếm> := <giá trị đầu> to <giá trị cuối> ;do <câu lệnh>

-> Sai vì trước do có dấu ;

B. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>

-> sai vì kết thúc câu lệnh không có dấu ;

D. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

 -> sai vì sau <biến đếm> không có dấu :

Bình luận (0)
Thịnh Hồ
24 tháng 2 2022 lúc 18:50

B

 

Bình luận (0)
NATT
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 21:38

1. A

2. A

Bình luận (0)
NQ Thi
Xem chi tiết
Nguyễn Hoàng Duy
4 tháng 4 2023 lúc 0:03

program Tinh_Tong;

var n, s, i: integer;

begin
  write('Nhap vao so nguyen duong n: ');
  readln(n);
  s := 0;
  i := 1;
  while i <= n do
  begin
    s := s + i;
    i := i + 1;
  end;
  writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
  end.

Bình luận (0)
Bé Heo
Xem chi tiết
Trần Ái Linh
12 tháng 5 2021 lúc 10:55

Câu 8.

program im_14424;

uses crt;

var S: byte;

i: byte;

begin

clrscr;

S:=0;

for i:=1 to 20 do

S:=S+i;

writeln('Tong cua 20 so tu nhien dau tien la: ,S);

readln

end.
Câu 9.

j:=2 → Gán j = 2.

for i:=1 to 5 do → lặp lại 5 lần

j:=j+2 → 

Lần 1: 4

Lần 2: 6

Lần 3: 10

Lần 4: 12

Lần 5: 14

 

 

Bình luận (0)
Trúc Giang
12 tháng 5 2021 lúc 10:52

 Câu 1:

uses crt;
var sum,i:longint;
begin
clrscr;sum:=0;
for i:=1 to 20 do sum:=sum+i;
write(sum);
readln
end.

Câu 2:

i = 1; j = 4i = 2; j = 6i = 3; j = 8i = 4; j = 10i = 5; j = 12

Bình luận (1)
Trương Đại Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:29

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

i:=1;

while i<=n do 

  begin

s:=s*i;

i:=i+1;

end;

writeln(s:0:0);

readln;

end.

Bình luận (1)
Thế anh lã
Xem chi tiết
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:14

Sử dụng vòng lặp while...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  i := 1;
  sum := 0;
  while i <= 20 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

Bình luận (0)
Nguyễn Hoàng Duy
21 tháng 3 2023 lúc 22:13

Sử dụng vòng lặp for...do:

program TinhTong20SoTNN;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 20 do
    sum := sum + i;
  writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.

 

Bình luận (0)
Nguyễn Mai Anh Đào
Xem chi tiết
Phía sau một cô gái
7 tháng 3 2023 lúc 20:40

program tong_100_so_tu_nhien;

uses crt;

var i, S: integer;

begin

      S := 0;

      for i := 1 to 100 do

            S := S + i;

      writeln('Tong cua 100 so tu nhien dau tien la ', S);

      readln;

end.

 

 

  
Bình luận (0)
Kiều Vũ Linh
7 tháng 3 2023 lúc 21:11

Var i,s:integer;

Begin

i:=1;

s:=0;

While i<=100 do

Begin

s:=s+i;

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)